home *** CD-ROM | disk | FTP | other *** search
/ Online Today 2000 January / Onto0100.iso / pc / Browser / Web-Fix / Web-Fix Installer.exe / Main / KromoScripts.k < prev    next >
Encoding:
Text File  |  1999-09-08  |  1.1 KB  |  53 lines
  1. module oKromoScriptList is cKR_ScriptList
  2. -----------------------------------------
  3. with
  4.     Items is [
  5.         -- Kromo Basic Scripts
  6.         oKRBasic_Alert,
  7.         oKRBasic_Beep,
  8.         oKRBasic_CheckElement,
  9.         oKRBasic_CheckIntersecting,
  10.         oKRBasic_CheckRuntime,
  11.         oKRBasic_GetCoordinates,
  12.         oKRBasic_GetRandom,
  13.         oKRBasic_SetCoordinates,
  14.         
  15.         -- Kromo Flipbook Scripts
  16.         oKRFlip_SetCellIndex,
  17.         
  18.         -- Kromo RTF Scripts
  19.         oKRRTF_GetHotText,
  20.         oKRRTF_GetHotTextDownIndex,
  21.         
  22.         -- Kromo String Scripts
  23.         oKRString_BeginsWith,
  24.         oKRString_EndsWith,
  25.         oKRString_Replace
  26.     ];
  27. end;
  28.  
  29. object oKRFlip_SetCellIndex is cKR_Script
  30. has
  31.     Execute()
  32.     use
  33.         aTarget;
  34.         aCellIndex;
  35.     do
  36.         aTarget := self.GetParameter(1);
  37.         aCellIndex := self.GetParameter(2);
  38.         
  39.         aTarget.CellIndex := aCellIndex;
  40.         aTarget.Invalidate();
  41.     end;
  42. with
  43.     release Editor:
  44.         Name is            "Set cell index";
  45.         Identifier is    "oKRFlip_SetCellIndex";
  46.         GroupName is    "Kromo Flipbook";
  47.     end;
  48.     ParameterNameList         is ["Element","Value"];
  49.     ParameterTypeList         is [cImage, INTEGER];
  50.     ParameterDefaultList     is [oTargetSelf, 1];
  51.     ResultNeeded is false;
  52. end;
  53.